home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_6_style section code.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  986 b   |  41 lines
  1. global gMasterData, balloonSprite, gLastMC
  2.  
  3. on goStyle
  4.   go(label("Style"))
  5.   set gLastMC to -1
  6.   set gLastRoller to 0
  7.   set gLastSounder to 0
  8.   goNarrator(gMasterData, "04")
  9.   setUserArea(gMasterData, #style)
  10.   puppetSprite(balloonSprite, 1)
  11.   setFingerCursor(#on, [8, 9, 10, 11, 12, 13, 16])
  12. end
  13.  
  14. on exitStyle
  15.   puppetSprite(balloonSprite, 0)
  16.   setPuppetState([8, 13], #c, 0)
  17.   setFingerCursor(#off, [8, 9, 10, 11, 12, 13, 16])
  18. end
  19.  
  20. on styleMovies thisSprite
  21.   set vCritterSp to 47
  22.   case thisSprite of
  23.     8:
  24.       set vMovieName to "AkweEss.mov"
  25.     9:
  26.       set vMovieName to "Partners.mov"
  27.     10:
  28.       set vMovieName to "PassiveR.mov"
  29.     11:
  30.       set vMovieName to "ActiveR.mov"
  31.     12:
  32.       set vMovieName to "Retreat.mov"
  33.     13:
  34.       set vMovieName to "Accept.mov"
  35.   end case
  36.   set the fileName of member "Style.mov" to "@/Media/" & vMovieName
  37.   set the loc of sprite balloonSprite to point(-2222, -2222)
  38.   go("styleQT")
  39.   set the movieRate of sprite vCritterSp to 1
  40. end
  41.